home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 77 / Tiger_Disk_077_20xx_Tiger-Crew-Disk_de_Side_D.d64 / ende ii_3 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  24 lines
  1. 2 printchr$(147):  poke53280,.:poke53281,.:forz=0to24::poke650,255:poke56325,1
  2. 3 print"[151][172]                                      [187]";:next:poke650,0:poke53281,11
  3. 5 poke56325,55: poke53280,.:s=54272:
  4. 6 v=53248:poke2041,13:
  5. 11 forn=0to62:reada:poke832+n,a:nextn
  6. 16 pokev+21,2::forc=9to18step.1
  7. 21 forf=1to102:pokev+2,161:pokev+3,108:pokev+40,c:pokev+23,2:pokev+29,2
  8. 26 forx=100to247step.9:fory=100to247step(y+33)-(x/y):forz=1to500:next:poke53281,11
  9. 31 print"[146][144]                     [157][157][157][205][205][205].[157]";:       :
  10. 33 s=54272:pokes+24,15:pokes+1,128:pokes+5,9:pokes+6,9:pokes+4,129:pokes+4,128:
  11. 36 print"[146][144]                     [157][157][157][205][205][205].[157]"; :
  12. 41 s=54272:pokes+24,15:pokes+1,128:pokes+5,9:pokes+6,9:pokes+4,129:pokes+4,128
  13. 42 poke56325,1:forf=12to17step.7:pokev+40,f:pokev,.:next
  14. 46 printchr$(147):t$=" e n d e !":printtab(10);t$:fori=1tolen(t$):poke56325,2
  15. 47 s=54272:pokes+24,15:pokes+5,9:pokes+6,89:pokes+4,8*rnd(2)*2
  16. 48 pokes+1,6+rnd(2)*2:pokes+5,9:pokes+6,9::pokes+4,32:pokev+21,0
  17. 51 :printtab(9)"[218]";:nexti:print"[145][145][151]                                        ";:
  18. 56 print"[151][157][157][157][157][157][157][157][157][157][157][157][157]            [144]lukian's nonsens";:poke56325,.
  19. 57 s=54272:pokes+24,15:pokes+1,64:pokes+5,64:pokes+6,89:pokes+4,129:pokes+4,128
  20. 58 poke56325,55:fort=1to100:next:sys58253
  21. 61 data0,28,0,0,62,16,0,107,16,0,62,48,0,62,48,0,28,112,0,62,224
  22. 66 data1,255,192,3,255,128,6,255,0,6,255,0,6,255,0,6,255,0,6,255,0
  23. 71 data0,126,0,0,102,0,0,102,0,0,102,0,0,102,0,0,102,0,0,231,0
  24.